；；
力扣 693
给定一个正整数，检查它的二进制表示是否总是 0、1 交替出现：换句话说，就是二进制表示中相邻两位的数字永不相同。
；；
@进制转换 = @【#数，#进制】｛
    #结果：“”
    #当前值 = #数
    当 #当前值 大于 0 ｛
        #结果 = #当前值 % #进制 + #结果
        #当前值 = @转整数【#当前值 / #进制】
    ｝
    返回 #结果
｝

@是否交替位二进制数 = @【#数】｛
    #二进制：@进制转换【#数，2】
    当 #序：0，#序 小于 @取长度【#二进制】-1，#序 自加 1 ｛
        如果 #二进制#序 等于 #二进制#【#序+1】｛ 返回 假 ｝
    ｝
    返回 真
｝
@显示、@是否交替位二进制数、5
